perm filename NN[GEM,BGB] blob sn#038620 filedate 1973-08-08 generic text, type T, neo UTF8
00100	;LINK NAMES DEFINED.
00200	
00300		DEFINE LEFT $(NAM,WRD,Z){
00400		IFIDN<><Z><DEFINE NAM(A,Q)<CAR A,WRD(Q)>>
00500		IFDIF<><Z><DEFINE NAM(A,Q)<NIP A,WRD(Q)>>
00600		DEFINE NAM$.(A,Q)<DIP A,WRD(Q)>
00700	}
00800		DEFINE RIGHT $(NAM,WRD,Z){
00900		IFIDN<><Z><DEFINE NAM(A,Q)<CDR A,WRD(Q)>>
01000		IFDIF<><Z><DEFINE NAM(A,Q)<NAP A,WRD(Q)>>
01100		DEFINE NAM$.(A,Q)<DAP A,WRD(Q)>
01200	}
01300	
01400		LEFT(CW,0)		RIGHT(CCW,0)
01500		LEFT(ROW,3)↔		RIGHT(COL,3)
01600		LEFT(DAD,1)↔		RIGHT(SON,1)
01700		LEFT(TYPE,2)↔		RIGHT(RELOC,2)
01800		LEFT(ENDO,3)↔		RIGHT(EXO,3)
01900		LEFT(ALT,4) LEFT(ARC,4)	RIGHT(NCNT,4,N)
02000		LEFT(NGON,5)↔		RIGHT(PGON,5)
02100		LEFT(NTIME,6)↔		RIGHT(PTIME,6)
02200	
02400		DEFINE CNTRST(A,Q){NIP A,4(Q)}
02500		DEFINE CNTRS.(A,Q){DIP A,4(Q)}
02600	;-----------------------------------------------------------------
     

00100	;PROPERTY-TYPE MACROS.
00200	
00300		DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
00400		DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
00500		DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
00600		DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}
00700	
00800	;PROPERTY-TYPE BITS.
00900	
01000		↓WESBIT←←1B0		;WEST.		VIC ONLY.
01100		↓SOUBIT←←1B1		;SOUTH.
01200		↓EASBIT←←1B2		;EAST.
01300		↓NORBIT←←1B3		;NORTH.
01400	
01500		↓NFUSE←←1B4		;NTIME FUSION.	POLYGONS ONLY.
01600		↓NFISS←←1B5		;NTIME FISSION.
01700		↓NEXCT←←1B6		;NTIME EXACT.
01800		↓PFUSE←←1B7		;PTIME FUSION.
01900		↓PFISS←←1B8		;PTIME FISSION.
02000		↓PEXCT←←1B9		;PTIME EXACT.
02100	
02200		↓HOLBIT←←1B10		;HOLE POLYGON.
02300		↓ARCBIT←←1B11		;ARC VECTOR.
02400	
02500		↓SBIT←←1B12		;SHAPE NODE.
02600		↓VBIT←←1B13		;VERTEX NODE.
02700		↓PBIT←←1B14		;POLYGON NODE.
02800		
02900		↓LBIT←←1B15		;LEVEL NODE.
03000		↓IBIT←←1B16		;IMAGE NODE.
03100		↓FBIT←←1B17		;FILM NODE.
03200	
03300	;LINK-RELOCATION BITS OF EACH NODE TYPE.
03400	
03500		  VREL←←330003	;VERTEX.
03600		PGNREL←←333233	;POLYGON.
03700		LVLREL←←330000	;LEVEL.
03800		IMGREL←←330000	;IMAGE.
03900		FILREL←←011000	;FILM.
04000	;-----------------------------------------------------------------
04100		↓% ←← 400000
04200		↓NODSIZ ←← 7
04300		↓RC←←3